home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Telecom / PCGHAYES.ARC / PCGTERM HAYES.BU (.txt) < prev   
Commodore BASIC  |  2019-04-13  |  7KB  |  207 lines
  1. 2 REM             PCG TERM   BY EGBELL    
  2. 4 POKE686,37:POKE679,.:POKE685,.:POKE690,.:POKE691,.:POKE692,.:POKE693,.
  3. 6 POKE49028,.:POKE2062,32:PRINT"[147]"
  4. 8 GOSUB354:D=8:GOSUB352:GOSUB20027:SYS64931:OPEN5,2,.,CHR$(6):POKE665,75
  5. 10 GET#5,A$:SYS49173:POKE56,40:POKE52,40:D=PEEK(2065)
  6. 12 POKE247,0:POKE249,0:POKE248,52:POKE250,53:I$="PH.PAGE 1":GOSUB298
  7. 14 POKE53272,(PEEK(53272)AND240)OR10:SYS49167:BS=255:L=214:GOSUB68
  8. 18 A=53280:POKE56328,.:POKEA,.:POKEA+1,.:PRINT"[147]
  9. 20 [153]"DEF               LOGWAITPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSDEFCOS          LOG
  10. 22 PRINT"[150]         [190] [175][150]    [175][175][175][175][175][175][175][175][175]   [150]  "TAB(37)"[185][185]"
  11. 24 PRINT"[150]               [172][146]       "TAB(27)"  [182]
  12. 26 [153]"  "[163]9)"  USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR   DEF  "[163]37)"RND "
  13. 28 [153]"DEF  "[163]10)"NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWDEF"[163]27)"RND          *
  14. 30 POKEL,5:PRINT"[146][208][195][199] [212]ERM [214]5.1 [159][174][176][174][176][174][176][174][176][174][176][174][176][174][176][174][176][174][176][174][176][174][176][174][176][174]
  15. 32 [153]"/EXP/EXP/EXP/EXP/EXP/EXP/EXP/EXP/EXP/EXP/EXP/EXP/EXP/EXP/PRINT BY EGBELL":B$[178]"CLRDEF  ":C$[178]" DEF WAIT - "
  16. 34 [153]" (LEN) 1988          ATNLL (null)IGHTS (null)ESERVED ":[151]14354,.:[143] CHECK1
  17. 36 [153]"DEFNEWNEWNEWNEWNEW":[153]B$"ATN"C$"(null)PLOAD":[153]B$"PEEK"C$"STR$OWNLOAD
  18. 38 PRINTB$"[195]"C$"[194]LOCK [211]IZE[153]"TAB(24)BS" ":PRINTB$"[196]"C$"[194]AUD "TAB(25)BR$
  19. 40 PRINTB$"[197]"C$"[212]ERMINAL [205]ODE":PRINTB$"[198]"C$"[196][207][211] [207]PS"TAB(24)"[153]"PEEK(2065)
  20. 41 PRINTB$"[199]"C$"[208]HONE [194]OOK
  21. 42 [153]B$"LEFT$"C$"ATNUTODIAL"[163]25)"PRINT1670 / LEFT$AYES":[153]B$"RIGHT$"C$"PEEKUFFER (null)PS
  22. 44 PRINTB$"[202]"C$"[200]I-[210]ES [207]PS":PRINTB$"[203]"C$"[198]ILE [207]PS":PRINTB$"[204]"C$;
  23. 46 PRINT"[195]APTURE [197]D":PRINTB$"[205]"C$"[195]LOCK[150]":PRINT"[184][184][184][184][184]"
  24. 48 POKE198,.:GOSUB20021:CH=PEEK(787)
  25. 49 ONCHGOTO262,62,90,60,98,252,262,126,56,58,324,54,368,400,414,412
  26. 50 GOTO30
  27. 54 GOSUB20020:GOTO18:CAPTURE EDITOR
  28. 56 GOSUB20019:GOTO18:EDITOR
  29. 58 GOSUB20022:GOTO18:HI RES
  30. 60 GOSUB68:GOTO20
  31. 62 I$="@0:WRITEPROTECT,S,W":A=9:N=.:GOSUB248:POKEL,11:GOSUB316
  32. 64 GOSUB320:IFEGOTO18
  33. 66 GOTO262
  34. 68 POKE691,-(PEEK(691)=.):B3=PEEK(691)
  35. 70 CS=1.02273E6
  36. 72 POKE659,6-2*(B3=1):POKE660,.
  37. 74 BR$="300 ":IFB3THENBR$="1200
  38. 76 S[178][197](BR$)
  39. 78 RC[178]CS[173]S:[141]88:[151]49179,LO:[151]49180,HI:[143] PUNTER SPEED WEDGE
  40. 80 [139]S[178]1200[167]RC[178]CS[173]S[172].966:[141]88
  41. 82 [151]665,LO:[151]666,HI
  42. 84 RC[178]CS[173]S[173]2[171]100:[141]88
  43. 86 [151]661,LO:[151]662,HI:[142]
  44. 88 HI[178][181](RC[173]256):LO[178]RC[171](HI[172]256):[142]
  45. 90 [151]L,12:[153]:[153][163]25)"   CMDCMDCMD";:M[178]3:[141]104:[139]I$[178]""[137]20
  46. 92 BS[178][197](I$):[139]BS[179]40[167]BS[178]40
  47. 94 [139]BS[177]255[167]BS[178]255
  48. 96 [137]20
  49. 98 [153] "LOAD (null)ERMINAL (null)ODE  LISTASC8 VALXIT ":[153]:[141]20005
  50. 100 [153]"CLRTOCMDPRINT";:[141]20015:[137]18
  51. 102 M[178]20
  52. 104 I[178].:I$[178]"
  53. 106 PRINT"[164][157]";
  54. 108 GOSUB244:IFA=.GOTO108
  55. 110 IFA=13THENPRINT" ":RETURN
  56. 112 IFA=20GOTO122
  57. 114 IFA>132ANDA<141THENI$=PH$(A-132):PRINTI$:RETURN
  58. 116 IFLEN(I$)=MGOTO108
  59. 118 IF(AAND127)<32GOTO108
  60. 120 PRINTA$;:I$=I$+A$:GOTO106
  61. 122 IFLEN(I$)=.GOTO108
  62. 124 PRINT" [157][157]";:I$=LEFT$(I$,LEN(I$)-1):GOTO106
  63. 126 T0=PEEK(2064):IFT0<>16ANDT0<>20THENGOSUB404
  64. 128 DT$="P":IFPEEK(2064)=20THENDT$="T"
  65. 130 N1$="ATV0":GOSUB216:NT=.:GOSUB226:IFI$=""GOTO18
  66. 132 GOSUB312:GOSUB314
  67. 142 GOSUB238:N1$="ATV0"+"D"+DT$+N$:GOSUB216
  68. 144 GOSUB240:T2=TI+90:IFNT>1THENPRINT#5,"A/"
  69. 146 IFTI<T2THENGET#5,A$:GOTO146
  70. 148 T2=TI+1200:T1=TI
  71. 150 GET#5,A$:IFASC(A$+CHR$(.))>.GOTO98
  72. 155 GETB$:IFB$="S"THENPRINT#5,"A":T2=TI+380:Y=.:GOTO208
  73. 160 IFTI<T2GOTO150
  74. 165 PRINT#5,"A":T2=TI+180
  75. 170 IFTI<T2THENGET#5,A$:GOTO170
  76. 175 PRINT:PRINT"[145]";:SYS49173:GOTO144
  77. 208 IFTI<T2THENGET#5,A$,A$:GOTO208
  78. 212 GOTO18
  79. 216 PRINTMID$(N1$,7);:A=LEN(N1$):FORDE=1TOA:A$=MID$(N1$,DE,1)
  80. 217 PRINT#5,A$;:NEXT:PRINT#5:RETURN
  81. 218 A$=MID$(N$,I,1):A=VAL(A$):B=A-10*(A=.):RETURN
  82. 222 SI=54272:POKESI+24,15:POKESI+4,16:POKESI+11,16:POKESI+5,.:POKESI+12,.
  83. 224 POKESI+6,240:POKESI+13,240:POKESI+23,.:RETURN
  84. 226 GOSUB306:GOSUB314
  85. 228 PRINT" [206]UMBER [146][155] :";:GOSUB102:N$=I$:IFN$=""THENRETURN
  86. 230 GOSUB234:IFLEN(N$)<7THENGOSUB20005:GOTO226
  87. 232 RETURN
  88. 234 FORDE=1TO2200:NEXT:RETURN
  89. 236 FORDE=1TO200:NEXT:RETURN
  90. 238 GOSUB312:GOSUB314:PRINT"[155]> [211] <[146] [193]BORT":PRINT"[196]IALING  [155]";:RETURN
  91. 240 NT=NT+1:PRINTTAB(19)"[193]TTEMPT[155]:"NT" ";:RETURN
  92. 242 GOSUB244:PRINTA$"[157]";:GOSUB236:DF=VAL(A$):RETURN
  93. 244 POKE198,.:WAIT 198,1:GETA$:A=ASC(A$+CHR$(.)):RETURN
  94. 248 N=N-24*(N=.)
  95. 250 FORX=ATON:POKE781,X:SYS59903:POKE217+X,PEEK(217+X)OR128:NEXT:RETURN
  96. 252 GOSUB312:POKEL,10:PRINT:PRINT">> [155]$ [196]IRECTORY   [155]@# [211]ELECT [196]EVICE # <<
  97. 254 [153]"DEF>> LIST";:M[178]36:[141]104:[139]I$[178]""[137]18
  98. 256 [139][200](I$,1)[178]"@"[167][141]350:[137]18
  99. 258 [139]I$[178]"$"[167][141]20009:[137]18
  100. 259 [139][200](I$,1)[178]"$"[167][141]20010:[137]18
  101. 260 [152]15,I$:[141]318:[141]320:[137]252
  102. 262 [151]14360,BS:[141]312:[141]314:[153]"":DI$[178]",R":B$[178]"STR$IRECTORY ASCILE"
  103. 264 [139]CH[179]7[167]B$[178]"(null)END":[139]CH[178]2[167]B$[178]"(null)ECEIVE":DI$[178]",W
  104. 266 PRINTB$" :[155]";:M=16:GOSUB104:IFI$=""GOTO18
  105. 267 IFI$="$"ANDCH=7THENGOSUB500:GOTO262
  106. 268 N$=I$:GOSUB316:IFCH<>-(E=.)-2*(E=62)-6*(E=.ANDCH=7)THENGOSUB320:GOTO262
  107. 270 PRINT:IFCH>2GOTO298
  108. 272 PRINT"[[155][208]]RG  [[155][211]]EQ  [[155][213]]SR :[155]";
  109. 274 GOSUB242:IFA<>80ANDA<>85ANDA<>83GOTO274
  110. 276 POKE14363,1-(A=83ORA=85):N$=N$+","+A$+DI$:REM  51227
  111. 278 PRINT:PRINT"[145][[155][208]]UNTER   [[155][216]]MODEM [155]: [157]";
  112. 280 GOSUB242:XM=-(A=88):IFA<>88ANDA<>80GOTO280
  113. 282 A=11:N=.:GOSUB248:POKEL,9:PRINT:PRINTTAB(26)"[195][205][196][210] TO [193]BORT":POKEL,11
  114. 284 A$="[150]>[192][192][192][150][219][192][192][192][150]<":PRINT:PRINTA$"1"A$"2"A$"3"A$"4[146]":ONCHGOTO292
  115. 286 IFXM=.THENSYS49173:SYS49161:IFPEEK(512)=1GOTO296
  116. 288 GOSUB348:IFXM=.THENSYS61310:SYS49173:SYS49155:GOTO296
  117. 290 GOSUB20018:GOTO296:REM XMODEM DOWN
  118. 292 GOSUB348:IFXMTHENPOKE198,.:GOSUB20017:GOTO296: XMODEM UP
  119. 294 SYS49173:SYS49164:IFPEEK(512)=.THENSYS49173:SYS49158
  120. 296 GOSUB20023:CLOSE2:GOSUB20005:GOSUB234:GOTO98
  121. 298 GOSUB316:IFE>.THENRETURN
  122. 300 OPEN7,D,7,I$:FORZ=1TO9:INPUT#7,PH$(Z),CM$(Z):NEXT:INPUT#7,DF$:POKE2062,1
  123. 302 CLOSE7:IFCH<>7THENRETURN
  124. 304 GOSUB306:GOSUB360:GOSUB312:GOTO18
  125. 306 RESTORE:GOSUB312:POKEL,14:PRINT:IFPEEK(2062)>1THENRETURN:DATA "13572468
  126. 308 [135]A$:[129]X[178]1[164]8:[153]"LISTASC"[202](A$,X,1)"PRINTWAIT"[163]3)PH$(X)[163]20);
  127. 310 [153]"DEF "[200](CM$(X)[170]"                ",16)"DEF ":[130]:[142]
  128. 312 A[178]9:N[178].:[137]248
  129. 314 [151]L,8:[153]:[142]
  130. 316 [159]7,D,7,I$:[160]7
  131. 318 [132]15,E,E1$,E2$,E3$:[152]15,"I":[142]
  132. 320 [139]E[178].[176](E[178]62[175]CH[178]2)[167][142]
  133. 322 [153]:[153]">"[196](E)", "E1$", "E2$", "E3$" <":[141]20005:[141]360:[142]
  134. 324 [153]"LOADLIST1 ATNS ASCILED":C$[178]"ATNSCII
  135. 326 PRINT"[155]2 [211]CREEN "C$:PRINT"[155]3 [212]RUE "C$:PRINT"[155]4 [198]ONTS"
  136. 327 PRINT:PRINTTAB(7)"[155]?[157]";
  137. 328 GOSUB242:IFA=13GOTO18
  138. 330 IFA=36THENGOSUB20009:POKE212,.:GOTO324
  139. 332 IFDF<1ORDF>4GOTO328
  140. 333 IFDF=4THENGOSUB376:GOTO18
  141. 334 POKE681,DF-1:IFDF<>2THENPRINT:GOTO346
  142. 336 PRINT:PRINT""C$" [198]OR [195]ARRIAGE [210]ETURN
  143. 338 [153]"STR$EFAULT RIGHT$S 'DEF31' ASCOR DEF(null)PEEDSCRIPT":[153]:[153][163]7)"LIST?CMD";
  144. 340 M[178]3:[141]104:I[178][197](I$):[151]680,I[171]31[172](I[178].)
  145. 346 [151]14336,1:[141]20016:[141]20005:[141]362:[139]A$[178]"P"[167][141]20006
  146. 347 [137]324
  147. 348 [159]2,D,2,N$:[137]234
  148. 350 D[178][197]([202](I$,2)):[139]D[179]8[176]D[177]11[167]D[178]8
  149. 352 [151]2065,D:[160]15:[159]15,D,15,"I":[142]
  150. 354 [151]11040,255:[129]X[178]11041[164]11046:[151]X,195:[130]:[142]
  151. 360 [151]781,24:[158]59903:[151]214,22:[153]:[153]" ATNNY (null)EY "
  152. 362 [161]A$:[139]A$[178]""[137]362
  153. 364 [151]781,24:[158]59903:[142]
  154. 368 T$[178]"":A[178]9:[141]248:[151]L,9:[133]"(null)IME [LEFT$LEFT$(null)(null)(null)(null)] LIST";T$:[139]T$[178]""[137]18
  155. 370 T$[178][200](T$[170]"000000",6)
  156. 372 X[178]5:[129]Y[178]1[164]3:[151]56328[170]Y,16[172][197]([202](T$,X,1))[170][197]([202](T$,X[170]1,1))
  157. 374 X[178]X[171]2:[130]:[151]56328,.:[137]18
  158. 376 I$[178]"$:FONT.*":[141]20010
  159. 378 I$[178]"FONT.":M[178]16:[151]781,1:[158]59903:[153]"(null)OAD :"I$"LIST";:[141]106
  160. 380 [139]I$[178]""[176]I$[178]"FONT."[137]18
  161. 384 [159]2,D,.,I$:[151]780,.:[151]781,.:[151]782,144:[158]65493:[160]2:[137]18
  162. 400 [141]236:[152]5,"+++":[141]236:[152]5,"ATZ":[141]236:[152]5,"ATM0H0"
  163. 402 [141]236:[151]691,.:[141]68:[137]18
  164. 404 [141]312:[151]L,9:[153]:[153]"LIST(null)ONE  LIST(null)ULSE  "
  165. 406 [141]244:[139]A$[179][177]"T"[175]A$[179][177]"P"[137]406
  166. 408 [151]2064,A[175]31
  167. 410 [152]15,"S0:PCGTERM HAYES":[152]15,"I":[148]"PCGTERM HAYES",D:[142]
  168. 412 [151]36864,.
  169. 414 [139][194](36864)[178]197[175][194](36865)[178]199[175][194](36866)[178]194[137]424
  170. 416 I$[178]"BEL.":M[178]16:[153]"LOAD(null)ODULE (null)AME :PRINT#";I$"";:[141]106
  171. 418 [139]I$[178]"BEL."[176]I$[178]""[137]18
  172. 420 [139][201](I$,1)[178]"$"[167][141]501:[137]416
  173. 422 [159]2,D,.,I$:[151]780,.:[151]781,.:[151]782,144:[158]65493:[160]2:[137]414
  174. 424 [158]36867:[151]53272,([194](53272)[175]240)[176]10:[137]18
  175. 500 I$[178]"$:PH.*":[137]20010
  176. 501 I$[178]"$:BEL.*":[137]20010
  177. 2000 [143]  HALFDUP         = 679
  178. 2001 [143]  CARRIAGE RETURN = 680
  179. 2002 [143]  SPEEDSCRIPT     = 681
  180. 2003 [143]  WEDGE ENABLE    = 685
  181. 2004 [143]  WEDGE ESCAPE    = 686
  182. 2005 [143]  BAUD TOGGLE     = 691
  183. 2006 [143]  BUFFER ON/OFF   = 692
  184. 2007 [143]  FULL/HALF DUPLX = 693
  185. 2008 [143] CHECK1 PUNTER VARIABLE ALSO TERMINAL PREMATURE EXIT FOR SOME CALLERS
  186. 2009 [143] AT 14354. MUST = 0 FROM BASIC
  187. 2010 :
  188. 3000 [143]  DRIVE NUMBER    = 2065
  189. 3001 [143]  PUNTER 1200 WDG = 49179
  190. 3002 [143] CHECK1 PUNTER VARIABLE ALSO TERMINAL PREMATURE EXIT FOR SOME CALLERS
  191. 20005 [158]50910:[142]:  B[145]G
  192. 20006 [158]51435:[142]:  SCREEN DUMP
  193. 20009 [158]51894:[142]:  DIREC[164]RY
  194. 20010 [159]1,D,0,I$:[158]51923:[142]:  SPEC[139]IC DIREC[164]RY
  195. 20011 [158]52259:[142]:  FLIX
  196. 20015 [158]52878:[142]:  PRETERM
  197. 20016 [158]52985:[142]:  FILE[135]ER
  198. 20017 [158]52994:[142]:  XMODEM UP[147]
  199. 20018 [158]53004:[142]:  XMODEM DOWN[147]
  200. 20019 [158]53021:[142]:  [164]EDIT
  201. 20020 [158]53027:[142]:  [164]CAPTURE
  202. 20021 [158]53033:[142]:  [164]MENU
  203. 20022 [158]53039:[142]:  [164]DOODLER
  204. 20023 [139][194](512)[178].[167][158]53045:[142]:  SMILER
  205. 20024 [158]53051:[142]:  FROWN
  206. 20027 [158]53057:[142]:  [164]KOALASHO
  207.